home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / roman.g < prev    next >
Text File  |  1998-05-22  |  12KB  |  492 lines

  1. (game-module "roman"
  2.   (title "Ancient Rome")
  3.   (blurb "base module for ancient Rome, ca 100 BC to 200 AD")
  4.   (notes 
  5.    ("The Roman Republic and Empire from 100 BC to 200 AD."
  6.     ""
  7.     "Massimo Campostrini <campo@mailbox.difi.unipi.it>"
  8.     ))
  9.   (variants
  10.    (world-seen false)
  11.    (see-all false)
  12.    (world-size (60 30 360))
  13.    (sequential false)
  14.    ("Mostly Land" mostly-land
  15.     (true
  16.      ;; Adjust so that sea is 20% instead of 50% of the world.
  17.      (add sea alt-percentile-max 20)
  18.      (add shallows alt-percentile-min 20)
  19.      (add shallows alt-percentile-max 21)
  20.      (add swamp alt-percentile-min 21)
  21.      (add swamp alt-percentile-max 23)
  22.      (add (desert plains forest) alt-percentile-min 21)
  23.      ))
  24.    ("All Land" all-land
  25.     (true
  26.      ;; Adjust sea and shallows out of existence, let swamp take all the low spots.
  27.      (add sea alt-percentile-min 0)
  28.      (add sea alt-percentile-max 0)
  29.      (add shallows alt-percentile-min 0)
  30.      (add shallows alt-percentile-max 0)
  31.      (add swamp alt-percentile-min 0)
  32.      (add swamp alt-percentile-max 2)
  33.      (add swamp wet-percentile-min 0)
  34.      (add swamp wet-percentile-max 100)
  35.      (add (desert plains forest) alt-percentile-min 2)
  36.      ;; Counterproductive to try to set up near water.
  37.      (add sea country-terrain-min 0)
  38.      ))
  39.    ("Large Countries" large
  40.     (true (set country-radius-max 100))
  41.     )
  42.    )
  43.   )
  44.  
  45.  
  46. (unit-type infantry (image-name "pikeman")
  47.   (help "light infantry")
  48.   (notes "pay attention to wood supply before building")
  49. )
  50. (unit-type cavalry (image-name "cavalry")
  51.   (help "light cavalry")
  52. )
  53. (unit-type archer (image-name "archer")
  54.   (help "archers and slingers")
  55.   (notes "pay attention to arrow supply")
  56. )
  57. (unit-type legion (image-name "legion") (char "L")
  58.   (possible-sides "roman")
  59.   (help "\"division\" of armored soldiers")
  60.   (notes "pay attention to wood supply before building")
  61. )
  62. (unit-type bireme (image-name "bireme") (char "B")
  63.   (help "small two-decked ship")
  64. )
  65. (unit-type trireme (image-name "trireme") (char "T")
  66.   (possible-sides (not "barbarian"))
  67.   (help "three-decked ship - mainstay of the navies")
  68. )
  69. (unit-type barge (image-name "barge") (char "U")
  70.   (help "troop transport, slow and weak")
  71. )
  72. (unit-type siege-engine (name "siege engine") (image-name "catapult") (char "S")
  73.   (possible-sides (not "barbarian"))
  74.   (help "built by infantry for attacking cities")
  75. )
  76. (unit-type camp (image-name "tents") (char "/")
  77.   (help "fortified camp")
  78. )
  79. (unit-type tribe (image-name "tribe") (char "X")
  80. ; (possible-sides (or "barbarian" "independent")) ; is this a good idea?
  81.   (help "wandering barbarian tribe")
  82. )
  83. (unit-type oppidum (image-name "village-2") (char "V")
  84.   (help "village")
  85. )
  86. (unit-type civitas (image-name "walltown") (char "*")
  87.   (help "typical city")
  88. )
  89. (unit-type urbs (image-name "parthenon") (char "@")
  90.   (possible-sides (not "barbarian"))
  91.   (help "large city")
  92. )
  93.  
  94. (material-type food
  95.   (help "what everybody has to eat"))
  96. (material-type wood
  97.   (help "raw materials for building things"))
  98. (material-type stones
  99.   (help "ammo for siege engines"))
  100. (material-type arrows
  101.   (help "ammo for archers"))
  102.  
  103. (include "stdterr")
  104.  
  105. (define i infantry)
  106. (define c cavalry)
  107. (define a archer)
  108. (define L legion)
  109. (define B bireme)
  110. (define T trireme)
  111. (define U barge)
  112. (define S siege-engine)
  113. (define / camp)
  114. (define X tribe)
  115. (define V oppidum)
  116. (define * civitas)
  117. (define @ urbs)
  118.  
  119. (define cities (V * @))
  120. (define makers (X V * @))
  121. (define places (/ V * @))
  122. (define troops (i c a L S))
  123. (define ships (B T U))
  124. (define movers (i c a L B T U S X))
  125. (define water (sea shallows))
  126. (define land (swamp plains forest desert mountains))
  127.  
  128. ;;; Static relationships.
  129.  
  130. (table vanishes-on
  131.   (troops water true)
  132.   (places water true)
  133.   (ships land true)
  134.   (ships road true)
  135.   (u* ice true)
  136. )
  137.  
  138. ;; Unit-unit capacities.
  139.  
  140. (table unit-size-as-occupant
  141.   (u* u* 500)
  142. ;             i c a L B T U  S   X
  143.   (movers u* (1 2 1 4 2 4 6 500 500))
  144. )
  145. (add (B T U S  /  V  X  *   @) capacity 
  146.      (1 2 4 4  8 12 16 25 100)
  147. )
  148. (table occupant-max
  149.   (u* u* 100)
  150.   (S  u* 1)
  151.   (ships ships 0)
  152. )
  153.  
  154. ;;; Unit-terrain capacities.
  155.  
  156. ;; Limit units to 4 in one cell.
  157. ;;  Places cover the entire cell, however.
  158.   
  159. (table unit-size-in-terrain
  160.   (u* t* 4)
  161.   (L t* 8)
  162.   (places t* 16)
  163. )
  164. (add t* capacity 16)
  165.  
  166. ;;; Unit-material capacities.
  167.  
  168. (table unit-storage-x
  169.   (u* m* 0)
  170. ;               i c a  L  B  T  U S  /  X  V  *   @ 
  171.   (u* food   (  5 8 5 10 10 20 40 5 10 30 30 50 200))
  172.   (u* wood   ( 16 4 4 24 12 16 25 0 20 20 30 50 150))
  173.   (u* stones (  2 1 1  4  4  6 12 5 10 10 30 50 150))
  174.   (u* arrows (  2 1 4  4  4  6 10 0 10 15 20 30 100))
  175. )
  176.  
  177. ;; A game's starting units will be full by default.
  178. (table unit-initial-supply (u* m* 9999))
  179.  
  180. ; i c a L B T U S / X V * @ 
  181.  
  182. (add places already-seen 100)
  183. (add X already-seen 100)
  184.  
  185. (add cities see-always true)
  186.  
  187. (table visibility
  188.   (u* t* 100)
  189.   (movers (mountains forest) 10)
  190.   ((i a) (swamp plains desert) 30)
  191.   ((S X) (mountains forest) 30)
  192. )
  193. ;                    i c a L B T U S /  X  V   * @ 
  194. (add u* stack-order (1 3 2 4 5 7 6 8 9 10 11 12 13))
  195.  
  196. ;;; Actions.
  197.  
  198. ;                      i  c  a  L  B  T  U  S / X V * @ 
  199. (add u* acp-per-turn ( 2  8  2  4  4  4  2  1 1 2 1 2 4))
  200. (add movers acp-min  (-2 -8 -2 -4 -4 -4 -3 -3  -2))
  201.  
  202. ;;; Movement.
  203.  
  204. (add places speed 0)
  205. (add movers speed 100)
  206.  
  207. (table mp-to-enter-unit
  208.   (u* u* 0)
  209.   ((i c a L) ships (2 8 2 4))
  210. )
  211.  
  212. (table mp-to-enter-terrain 
  213.   (u* t* 99)
  214.   (troops land 2)
  215.   (L land 4)
  216.   (c (forest mountains) 8)
  217.   ((S X) land 2)
  218.   (ships water 1)
  219.   (troops road 0)
  220. ;                i c a L  S
  221.   (troops river (2 8 2 4 99))
  222.   (X river 2)
  223. )
  224. (table mp-to-traverse
  225.   (u* (river road) 99)
  226.   (ships river 2)
  227.   (troops road 1)
  228.   ((L c S X) road 2)
  229. )
  230.  
  231. ;;; Construction.
  232.  
  233. ;            i  c  a  L  B  T  U  S  / X V * @ 
  234. (add u* cp (12 30 20 40 32 48 24 20 16 1 1 1 1))
  235.  
  236. (table acp-to-create
  237.   ((i L) (S /) 1)
  238.   (cities troops 1)
  239.   (cities ships 1)
  240.   (X troops 1)
  241.   (X ships 1)
  242.   ((X V) (L T) 0)
  243.   )
  244.  
  245. (table cp-on-creation
  246.   ((i L) (S /) 2)
  247.   (cities troops 2)
  248.   (cities ships 2)
  249.   )
  250.  
  251. (table acp-to-build
  252.   ((i L) (S /) 1)
  253.   (cities troops 1)
  254.   (cities ships 1)
  255.   (X troops 1)
  256.   (X ships 1)
  257.   ((X V) (L T) 0)
  258.   )
  259.  
  260. (table cp-per-build
  261.   ((i L) (S /) 2)
  262.   (cities troops 2)
  263.   (cities ships 2)
  264.   )
  265.  
  266. (table occupant-can-construct
  267.   (u* u* false)
  268. )
  269.  
  270. (table consumption-on-creation
  271.   ((B T U S /) wood (15 25 15 8 8))
  272. )
  273.  
  274. ;; Automatic repair work.
  275. (add troops hp-recovery 0.25)
  276. (add ships  hp-recovery 0.25)
  277. (add cities hp-recovery 0.50)
  278.  
  279. ;;; Production.
  280.  
  281. ;; should actually get food and wood from terrain
  282. (table base-production
  283.   (troops food 1)
  284.   (c food 2)
  285.   ((/ X V * @) food   (5 5 10 20 40))
  286.   ((/ X V * @) wood   (1 3  2  3  5))
  287.   ((/ X V * @) arrows (1 1  1  2  3)) 
  288.   ((/ X V * @) stones (1 1  1  2  3)) 
  289. )
  290.  
  291. (table productivity
  292.   (u* t* 0)
  293.   (troops (plains forest) 100)
  294.   (c forest 50)
  295.   (/ land-t* (30 100 50 30))
  296.   (X land-t* (30 100 50 30))
  297.   (V land-t* (30 100 50 30))
  298.   (* land-t* (30 100 50 30))
  299.   (@ land-t* (30 100 50 30))
  300. )
  301.  
  302. (table base-consumption
  303.   ((i a L) food 1)
  304.   (c food 2)
  305. )
  306. (table hp-per-starve
  307.   (movers food 0.5)
  308. )
  309.  
  310. ;;; Combat.
  311.  
  312. (table acp-to-attack
  313.   (u* u* 1)
  314.   ((a S) u* 0)
  315. )
  316. (table acp-to-defend
  317.   (u* u* 1)
  318.   (u* a 0)
  319. )
  320. (add (a S) range 1)
  321. (add (a S) acp-to-fire 1)
  322.  
  323. ;               i c a L B T U S /  X  V  *  @ 
  324. (add u* hp-max (2 3 2 8 3 6 2 2 5 20 20 50 200))
  325.  
  326. (table hit-chance 
  327.    (u* u* 50) ; basic hit chance
  328.    (troops ships 20)
  329.    (ships troops 20)
  330.    (a c 25)
  331.    (S movers 0)
  332.    (U u* 0)
  333. )
  334.  
  335. (table damage
  336.   (u* u* 1)
  337.   (S (V * @) 4)
  338. )
  339.  
  340. (table capture-chance
  341.   (i (/ X V * @) (20 15 15 10  5))
  342.   (c (/ X V * @) (20 20 10  5  2))
  343.   (L (/ X V * @) (40 40 40 20 10))
  344. )
  345. (table independent-capture-chance
  346.   (i (/ X V * @) (40 20 30 20 10))
  347.   (c (/ X V * @) (40 30 20 10  5))
  348.   (L (/ X V * @) (70 50 70 35 20))
  349. )
  350.  
  351. (table ferry-on-entry
  352.    (u* u* over-own)
  353.    (ships movers over-border)
  354. )
  355. (table ferry-on-departure
  356.    (u* u* over-own)
  357.    (ships movers over-border)
  358. )
  359.  
  360. (table protection 
  361.   (/ movers 80)
  362.   (V movers 65)
  363.   (* movers 50)
  364.   (@ movers 25)
  365. )
  366.  
  367. (table consumption-per-attack 
  368.   (a arrows 1)
  369.   (S stones 1)
  370. )
  371. (table hit-by
  372.   (u* arrows 1)
  373.   (places stones 1)
  374.   (ships stones 1)
  375. )
  376.  
  377. (table surrender-range (u* u* 1))
  378. (add u* acp-to-change-side 1)
  379.  
  380. (add u* point-value 0)
  381. (add makers point-value (1 1 3 9))
  382.  
  383. (table favored-terrain
  384.   (u* t* 0)
  385.   (u* plains 100)
  386.   (u* forest 20)
  387.   (ships t* 0)
  388.   (ships water 100)
  389.   (X (plains desert forest mountains) (30 20 100 30))
  390.   (V (desert forest mountains) (20 50 30))
  391.   (* (desert forest mountains) (10 30 20))
  392. )
  393.  
  394. (table independent-density
  395.   ;;                  X   V  *  @
  396.   (makers plains    (20 120 60 15))
  397.   (makers forest    (80  80 30  1))
  398.   (makers mountains (20  40 10  1))
  399.   (makers desert    (10  20  5  1))
  400. )
  401.  
  402. ;; Initial setup.
  403.  
  404. ; more land, more forest
  405. ;                                sea sha swa des pla for mou ice
  406. (add cell-t* alt-percentile-min (  0  48  50  50  51  51  90  99))
  407. (add cell-t* alt-percentile-max ( 48  50  51  90  90  90  99 100))
  408. (add cell-t* wet-percentile-min (  0   0  20   0  20  60   0   0))
  409. (add cell-t* wet-percentile-max (100 100 100  20  60 100 100 100))
  410.  
  411. (table road-chance
  412.   (* (* @) ( 1  5))
  413.   (@ (* @) (10 90))
  414.   )
  415.  
  416. (table road-chance ((* @) (* @) (10 90)))
  417.  
  418. (set country-radius-min 3)
  419. (set country-separation-min 16)
  420. (set country-separation-max 48)
  421.  
  422. (add makers start-with (1 3 2 1))
  423.  
  424. ;; Naming.
  425.  
  426. (namer urbs-names (random
  427.   "Alexandria" "Antiochia" "Athenae" "Chartago" "Constantinopolis"
  428.   "Ecbatana" "Roma" "Seleucia"
  429. ))
  430. (add urbs namer "urbs-names")
  431.  
  432. (namer civitas-names (random
  433.   "Apollonia" "Aquileia" "Artaxata" "Berytus" "Bysanthium"
  434.   "Caesarea" "Capua" "Corinthus" "Cyrene" "Durcotorum" "Dyrrachium"
  435.   "Eburacum" "Ephesus" "Gazaca" "Ierusalem" "Leptis Magna" "Lugudunum"
  436.   "Magontiacum" "Massilia" "Mediolanum" "Memphis" "Messana" 
  437.   "Narbo Martius" "Nicaea" "Nicomedia" "Nova Carthago" "Numantia"
  438.   "Palmyra" "Pergamum" "Petra" "Ravenna" "Rhodos" "Sais" "Salamis"
  439.   "Salonae" "Sinope" "Susa" "Syracusae" "Tarentum" "Tarraco" "Thebae"
  440.   "Thessalonica" "Tingis" "Trapezus" "Tyrus" "Utica"
  441. ))
  442. (add civitas namer "civitas-names")
  443.  
  444. (namer oppidum-names (random
  445.   "Aduatuca" "Aelana" "Aleria" "Alesia" "Amisus" "Ammonium" "Ancona"
  446.   "Ancyra" "Aquincum" "Attalea" "Baracara Augusta" "Boreum"
  447.   "Brundisium" "Caralis" "Carana" "Catabathmus Maior" "Cenabum"
  448.   "Cidamus" "Colonia Agrippina" "Damascus" "Delphi" "Dioscurias"
  449.   "Gades" "Gaza" "Gergovia" "Glevum" "Gortyna" "Halicarnassus"
  450.   "Heliopolis" "Heraclea" "Hermopolis Magna" "Hippo Regius" "Hispalis"
  451.   "Iconium" "Ilerda" "Lancia" "Lix" "Londinium" "Luni" "Lutecia"
  452.   "Lysimachia" "Melitene" "Naissus" "Nicopolis" "Nicopolis" "Noreia"
  453.   "Olbia" "Olisipo" "Panormus" "Panticapaeum" "Patavium" "Pelusium"
  454.   "Philippopolis" "Pisae" "Ptolemais Hermiu" "Rhegium" "Rusaddir"
  455.   "Sabrata" "Sala" "Sirmium" "Smyrna" "Sparta" "Tacapae" "Tanais"
  456.   "Tarsus" "Teredon" "Thapsacus" "Thapsus" "Toletum" "Tolosa" "Tomis"
  457.   "Volubilis"
  458. ))
  459. (add oppidum namer "oppidum-names")
  460.  
  461. (namer tribe-names (random
  462.   "Aestii" "Alani" "Amadoci" "Bastarnae" "Batavi" "Burgunti" "Chatti"
  463.   "Chauci" "Cimbri" "Daci" "Frisii" "Getae" "Gothi" "Hiberni"
  464.   "Iazyges" "Langobardi" "Marcomanni" "Massagetae" "Picti" "Roxolani"
  465.   "Rugii" "Sarmati" "Siraces" "Suebi" "Sugambri" "Tauri" "Venedae"
  466. ))
  467. (add tribe namer "tribe-names")
  468.  
  469. ;; Sides.
  470.  
  471. (set sides-min 2)
  472.  
  473. (scorekeeper (do last-side-wins)) ; for now
  474.  
  475. ; the side library really needs work (what about emblems?)
  476. (set side-library '(
  477.   ((name "Marius")
  478.    (class "roman"))
  479.   ((name "Sulla")
  480.    (class "roman"))
  481.   ((name "Parthia") (long-name "Regnum Parthorum") (adjective "Parthian")
  482.    (class "civilized"))
  483.   ((name "Macedonia") (long-name "Regnum Macedoniae") (adjective "Macedonian")
  484.     (class "civilized"))
  485.   ((name "Carthago") (adjective "Punic")
  486.    (class "civilized"))
  487.   ((name "Aedui") (adjective "Aeduan")
  488.    (class "barbarian"))
  489.   ((name "Teutones") (adjective "Teutonian")
  490.    (class "barbarian"))
  491.   ))
  492.